home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / wincomm5.arc / README.WMS < prev    next >
Text File  |  1990-10-25  |  565b  |  24 lines
  1. ;Read Me macro opens the README.TXT file in an sedit box
  2.  
  3.  
  4. var1$ = "welcome.txt"
  5.  
  6.    DIALOGBOX 44, 20, 250, 178, 21, "WinComm Read Me"
  7.       LTEXT 86, 8, 20, 9, "File:"
  8.       VTEXT 107, 8, 50, 9, Var1$
  9.       DEFPUSHBUTTON 177, 149, 50, 14, "&Finished"
  10.       UPDATEPB 32, 149, 50, 14, "&Welcome"
  11.       UPDATEPB 106, 149, 50, 14, "&Updates"
  12.       STEXT 9, 25, 235, 113, VAR1$
  13.    DEND
  14.  
  15. again:
  16.  
  17. DO i = DIALOG? UNTIL(i != 255)
  18. IF(i == 1) HALT
  19. IF(i == 100) var1$ = "welcome.txt"
  20. ELSE IF(i == 101) var1$ = "updates.txt"
  21. UPDATEDLG(18)
  22. GOTO again
  23. END
  24.